﻿Public Class SifreDegistirme : Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Parola değiştirme", "Eski parolanızı ve yeni parolanızı girin.")
				AddText("username", "Kullanıcı adı", "nl;width=15;disabled", User.UserName)
				AddText("@eski", "Eski parola", "nl;width=15;pwd")
				AddText("yeni1", "Yeni parola", "nl;width=15;pwd")
				AddText("yeni2", "Yeni parola (tekrar)", "nl;width=15;pwd")
			Case EventType.Shown
				Buttons.Show("Save")
			Case EventType.Save
				If Check("eski", Not User.CheckPassword(Input("eski")), "Girdiğiniz parola yanlış.") Then Return
				If Check("yeni1", Input("yeni1") <> Input("yeni2"), "Yeni parolalarınız birbirini tutmuyor, kontrol edin.") Then Return
				If Not User.ChangePassword(Remote, Input("yeni1")) Then Return
				Info("Parolanız değiştirilmiştir.")
				Close()
		End Select
	End Sub

End Class
